VERSION 5.00
Begin VB.Form frmMessageBox 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "File Not Sent"
   ClientHeight    =   2865
   ClientLeft      =   10815
   ClientTop       =   2520
   ClientWidth     =   4935
   ControlBox      =   0   'False
   ForeColor       =   &H00808080&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2865
   ScaleWidth      =   4935
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit Program"
      Height          =   390
      Left            =   3255
      TabIndex        =   2
      ToolTipText     =   "Exit Program - will exit the entire program not just this message box."
      Top             =   2295
      Width           =   1230
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "Delete"
      Height          =   390
      Left            =   1845
      TabIndex        =   1
      ToolTipText     =   "Delete- Will actually delete the pending file. This file can not be recovered at a later time. "
      Top             =   2295
      Width           =   1230
   End
   Begin VB.CommandButton cmdSend 
      Caption         =   "Send"
      Height          =   390
      Left            =   465
      TabIndex        =   0
      ToolTipText     =   "Send - will launch the FTP/E-Mail portion of the program and attempt to complete the pending job."
      Top             =   2295
      Width           =   1230
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   1440
      X2              =   4680
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   $"frmMessageBox.frx":0000
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   735
      Left            =   1320
      TabIndex        =   4
      Top             =   1320
      Width           =   3495
   End
   Begin VB.Image Image1 
      Height          =   885
      Left            =   225
      Picture         =   "frmMessageBox.frx":00B9
      Stretch         =   -1  'True
      Top             =   210
      Width           =   945
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "You still have a job that you have not sent.  Would you like to send the file or delete it and start a new job."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   750
      Left            =   1470
      TabIndex        =   3
      Top             =   255
      Width           =   3180
   End
End
Attribute VB_Name = "frmMessageBox"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDelete_Click()

On Error Resume Next

'MsgBox "Killing " & glbPathToKill

Kill (glbPathToKill & "\*.*")
RmDir (glbPathToKill)


frmContractor.dtaPreferences.DatabaseName = App.Path & "\preferences.mdb"
frmContractor.dtaPreferences.RecordSource = "preferences"
frmContractor.dtaPreferences.RecordSource = "select * from Preferences where CurrentUser='YES'"
frmContractor.dtaPreferences.Refresh

frmContractor.dtaPreferences.Recordset.Edit
frmContractor.dtaPreferences.Recordset("Status") = "PASSED"
frmContractor.dtaPreferences.Recordset.Update

Unload Me

End Sub

Private Sub cmdHelp_Click()
Unload Me
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdSend_Click()
 Dim RetVal
     RetVal = Shell(App.Path & "\Ftp.exe", 1)
     End
Unload Me
End Sub

